(show-paren-command-hook): Do nothing if input is pending.

diff --git a/lisp/paren.el b/lisp/paren.el
index f6dce5e5dfa9dc103acb4414b3388f8845351e4b..c4e5bceb4d617c8537b93a8650921c09d12b8a10 100644 (file)
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -42,7 +42,9 @@
 ;; Find the place to show, if there is one,
 ;; and show it until input arrives.
 (defun show-paren-command-hook ()
-  (if window-system
+  ;; Do nothing if no window system to display results with.
+  ;; Do nothing if input is pending.
+  (if (and window-system (sit-for 0))
       (let (pos dir mismatch (oldpos (point))
                (face show-paren-face))
        (cond ((eq (char-syntax (following-char)) ?\()